object Form1: TForm1
  Left = 160
  Top = 201
  AutoScroll = False
  Caption = 'Demonstration of VimSend Capability'
  ClientHeight = 472
  ClientWidth = 619
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'System'
  Font.Style = []
  Scaled = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 20
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 17
    Height = 16
    Caption = 'TO'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 112
    Width = 18
    Height = 16
    Caption = 'CC'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object eMessage: TMemo
    Left = 8
    Top = 312
    Width = 601
    Height = 153
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      'Message Text')
    ParentFont = False
    TabOrder = 0
  end
  object eSubject: TEdit
    Left = 8
    Top = 280
    Width = 601
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = 'Message Subject'
  end
  object Memo2: TMemo
    Left = 448
    Top = 8
    Width = 169
    Height = 201
    Color = clMenu
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      'This demo '
      'demonstrates '
      'a simple message send '
      'function. '
      ''
      'There is no lookup of '
      'addressees - this is '
      'shown in Demo3. '
      'However if the send '
      'function fails the error '
      'message(s) are '
      'displayed.')
    ParentFont = False
    TabOrder = 2
  end
  object Button1: TButton
    Left = 312
    Top = 8
    Width = 65
    Height = 25
    Caption = 'Send'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button1Click
  end
  object gPriority: TRadioGroup
    Left = 320
    Top = 216
    Width = 289
    Height = 57
    Caption = 'Priority'
    Columns = 3
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    Items.Strings = (
      'Low'
      'Normal'
      'Urgent')
    ParentFont = False
    TabOrder = 4
  end
  object eTO: TEdit
    Left = 40
    Top = 8
    Width = 257
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnExit = eTOExit
  end
  object lTO: TListBox
    Left = 40
    Top = 40
    Width = 257
    Height = 65
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 6
  end
  object eCC: TEdit
    Left = 40
    Top = 112
    Width = 257
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnExit = eCCExit
  end
  object lCC: TListBox
    Left = 40
    Top = 144
    Width = 257
    Height = 73
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 8
  end
  object Button2: TButton
    Left = 312
    Top = 40
    Width = 65
    Height = 25
    Caption = 'Logout'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = Button2Click
  end
  object VimSession1: TVimSession
    Active = False
    PermitUserLogin = True
    Left = 312
    Top = 80
  end
  object VimSendMessage1: TVimSendMessage
    Receipt = False
    Session = VimSession1
    Left = 312
    Top = 120
  end
end